Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Побудова графічних зображень в середовищі Turbo Pascal.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ

Частина тексту файла

Міністерство освіти і науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота № 1 з курсу «Дискретна математика» Тема: "Побудова графічних зображень в середовищі Turbo Pascal” Виконав: ст. гр. ПІ Львів-2007 Завдання: Створити програму на мові Паскаль, яка малює вказану кількість прямокутників по центру та трикутників в лівій нижній частині екрану. Відлагодити, скомпілювати і зберегти програму. Оформити звіт про роботу. Текст програми program lab01; uses crt, graph; var x, y,x1,y1,n,i,x2,y2,x3,y3: integer; driver, mode: integer; color: word; maxColor: string; begin writeln('Введіть кількість фігур'); readln(n); driver:=detect; initGraph(driver, mode, 'd:\programs\tp71\bgi'); if graphResult <> 0 then halt(1); color:=0; randomize; for i:=1 to n do begin x:=getmaxX div 3; y:=getmaxy div 3; x1:= x-random(x); y1:= y*2+random(y); x2:=x-random(x); y2:=y*2+random(y); x3:=x-random(x); y3:=y*2+random(y); Rectangle(x,y,x+random(x),y+ random(y)); begin line(x1,y1,x2,y2); line(x2,y2,x3,y3); line(x3,y3,x1,y1); end; setcolor(random(getmaxcolor)); setfillstyle(random(12), Lightred); end; readln; closegraph; end. Висновок: На цій роботі я вдосконалив свої вміння будувати графічні зображення в середовищі Turbo Pascal.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини